home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K Kerberos 1.xpl < prev    next >
Text File  |  2002-10-24  |  2KB  |  56 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="2"
  4. "UIPATH 1"="Network\Security\Kerberos"
  5. "UIPATH 2"="System\Security\Common"
  6. "NAME"="Kerberos UDP/TCP"
  7. "VERSION"="1.21"
  8. "OSVERSION"="0001011"
  9. "LANGUAGE"="VBScript"
  10. "WARNING"="1"
  11. "TEXT 1"="Use UDP on Port 88 for Kerberos (default)"
  12. "TEXT 2"="Use TCP on Port 88 for Kerberos"
  13. "DESCRIPTION 1"="Kerberos is the default security provider for Windows 2000 (and upwards) computers that are connected to a Windows Domain. By default, Kerberos uses UDP Port 88 to contact a Domain Controller (DC) and log on."
  14. "DESCRIPTION 2"="In some cases, it can happen that those UDP packets are blocked (e.g. because a firewall) and thus the Client will either be not able to connect to the DC, or use a weaker security provider like NTLM (because NTLM does not use UDP on Port 88)."
  15. "DESCRIPTION 2"="However, you can fore Windows to use Kerberos on TCP (not UDP) on Port 88 with this setting. This might help in cases where a firewall is configured to let TCP packets through, but no UDP packets. To use Kerberos with TCP on port 88, clear the tick. To reset to the default behavior (UDP) activate this setting."
  16. "DESCRIPTION 3"="For more information, please see http://support.microsoft.com/default.aspx?scid=kb;en-us;q244474 "
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Microsoft article "Forcing Kerberos to Use TCP Rather Than UDP in Windows 2000" -> http://support.microsoft.com/default.aspx?scid=kb;en-us;q244474 "
  21.  
  22.  
  23. sVal="HKLM\SYSTEM\CurrentControlSet\Control\Lsa\Kerberos\Parameters\MaxPacketSize"
  24.  
  25. Sub Plugin_Initialize 
  26.  if RegValueExists(sVal)=false then
  27.     SetUIElement 1,true
  28.  else
  29.     SetUIElement 2,true
  30.  end if
  31. End Sub
  32.  
  33. Sub Plugin_CheckData(ElementIndex)
  34. End Sub
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  b=GetUIElement(1)
  38.  if b=true then
  39.     if RegValueExists(sVal) then 
  40.        Call RegDeleteValue(sVal) 
  41.        Call Restart()
  42.     end if
  43.  else
  44.     Call RegWriteValue(sVal,1,2) 
  45.     Call Restart()
  46.  end if
  47.  
  48. End Sub
  49.  
  50.  
  51. Sub Plugin_Terminate 
  52. End Sub
  53.  
  54.  
  55.  
  56.